﻿<html><head><META http-equiv="Content-Type" content="text/html; charset=utf-16"><title>Documentation</title><style>
               li                     { margin-top: 10 }
               body                   { font-size: 75%; font-family: verdana, helvetica, arial, sans-serif }
               tbody                  { font-size: 75%; font-family: verdana, helvetica, arial, sans-serif }
               .header1               { font-weight: bold; color: #000080 }
               .header2               { font-weight: bold; color: #000080 }
               .header3               { font-weight: bold; color: #000080 }
               .header4               { font-weight: bold; color: #000080 }
               .Indentation           { position:relative;left:25px;display:block }
               .InvisibleIndentation  { position:relative;left:25px;display:none }
               .Bookmark              { text-decoration: none; color: #000080 }
               .Table                 { border-collapse: collapse; margin-top: 10; }
               .Cell                  { border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000; border-collapse: collapse; padding-left: 5px; padding-right: 5px }
               .TableHeaderRow        { border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000; border-collapse: collapse; padding-left: 10px; padding-right: 10px; color: #FFFFFF; background-color: #000080 }
               .PropertyName          { font-weight: bold }
               .ListHeader            { font-weight: bold }
               .Toggle                { width:12 ; height:10 ; border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000; border-collapse: collapse; text-align: center; cursor: pointer}
               .ToggleExternalCell    { vertical-align:baseline }
               .ToggleTBody           { font-size: 7pt }
            </style><script type="text/javascript">

            function ToggleElementVisibility(element) {

               elementParent = element.parentNode.parentNode.parentNode.parentNode.parentNode.parentNode.parentNode.parentNode;
               
               elementDIV = elementParent.nextSibling
              
               element.cursor = "wait"               
               
               if (element.innerHTML == "-") {
                  element.innerHTML = "+"
                  element.style.width = element.style.height
                  elementDIV.style.display = "none"
               }
               else {
                  element.innerHTML = "-";
                  element.style.width = element.style.height
                  elementDIV.style.display = "block"
               }
               element.cursor = "pointer"               

            }

            </script></head><body><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Projects:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Filename</th><th class="TableHeaderRow">Output Type</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image13.png"> <a class="Bookmark" href="#Rounding.xlsm_Bookmark">VBAProject (Rounding.xlsm)</a></td><td class="Cell">Rounding.xlsm</td><td class="Cell"></td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image13.png"> <span class="header2"><a name="Rounding.xlsm_Bookmark"></a>Project VBAProject (Rounding.xlsm)</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Filename: </span>Rounding.xlsm<br><span class="PropertyName">Language: </span>VB/VBA<br><span class="PropertyName">Output Type: </span><br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FileName</td><td class="Cell">Rounding</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullPath</td><td class="Cell">D:\Code\Rounding.xlsm</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> LanguageDescription</td><td class="Cell">VB/VBA</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> OutputType</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">References:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Filename</th><th class="TableHeaderRow">Description</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Version</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image63.png"> VBA</td><td class="Cell">VBE7.DLL</td><td class="Cell">Visual Basic For Applications</td><td class="Cell">ActiveX</td><td class="Cell">4.2</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image63.png"> Excel</td><td class="Cell">EXCEL.EXE</td><td class="Cell">Microsoft Excel 16.0 Object Library</td><td class="Cell">ActiveX</td><td class="Cell">1.9</td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Imports:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Import</th></tr><tr><td class="Cell">VBA</td></tr><tr><td class="Cell">Excel</td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Files:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Filename</th><th class="TableHeaderRow">Type</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image69.png"> <a class="Bookmark" href="#Access_Bookmark">Access</a></td><td class="Cell">Module</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image69.png"> <a class="Bookmark" href="#ArraySorting_Bookmark">ArraySorting</a></td><td class="Cell">Module</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image69.png"> <a class="Bookmark" href="#Imperial_Bookmark">Imperial</a></td><td class="Cell">Module</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image69.png"> <a class="Bookmark" href="#RoundingMethods_Bookmark">RoundingMethods</a></td><td class="Cell">Module</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image69.png"> <a class="Bookmark" href="#RoundingMethodsDemo_Bookmark">RoundingMethodsDemo</a></td><td class="Cell">Module</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image69.png"> <a class="Bookmark" href="#RoundingMethodsTest_Bookmark">RoundingMethodsTest</a></td><td class="Cell">Module</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image76.png"> <a class="Bookmark" href="#Rounding_Bookmark">Rounding</a></td><td class="Cell">VBA Document</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image75.png"> <a class="Bookmark" href="#Sheet1_Bookmark">Sheet1</a></td><td class="Cell">VBA Document</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">+</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image69.png"> <span class="header3"><a name="Access_Bookmark"></a>File Access</span></td></tr></table></div><div class="InvisibleIndentation"><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FileName</td><td class="Cell">Access</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullPath</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> SubType</td><td class="Cell">Module</td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Modules:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image50.png"> <a class="Bookmark" href="#VBAProject.Access_Bookmark">Access</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image50.png"> <span class="header4"><a name="VBAProject.Access_Bookmark"></a>Module Access</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Name: </span>Access<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Access v1.0.0<br>' (c) 2018-04-19. Gustav Brock, Cactus Data ApS, CPH<br>' https://github.com/GustavBrock/VBA.Round<br>'<br>' Replacement for functions only found in Access.<br>'<br>' NOT needed, if a reference to Access has been established,<br>' for example for Access 2016:<br>'<br>'   Microsoft Access 16.0 Object Library<br>'<br>' If a reference to Access is established, this module can NOT<br>' be added and will raise a name conflict error, if an attempt is made.<br>'<br>' License: MIT (http://opensource.org/licenses/mit-license.php)Option Explicit<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Access v1.0.0
' (c) 2018-04-19. Gustav Brock, Cactus Data ApS, CPH
' https://github.com/GustavBrock/VBA.Round
'
' Replacement for functions only found in Access.
'
' NOT needed, if a reference to Access has been established,
' for example for Access 2016:
'
'   Microsoft Access 16.0 Object Library
'
' If a reference to Access is established, this module can NOT
' be added and will raise a name conflict error, if an attempt is made.
'
' License: MIT (http://opensource.org/licenses/mit-license.php)Option Explicit
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.Access</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Namespace</td><td class="Cell">VBAProject</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Methods:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Kind</th><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.Access.EvalPublic Function Eval(ByRef StringExpr As String) As Variant_Bookmark">Eval</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.Access.EvalPublic Function Eval(ByRef StringExpr As String) As Variant_Bookmark"></a>Function Eval</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>Eval<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function Eval(ByRef StringExpr As String) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Replacement for the function Eval of Access.<br>'<br>' 2018-04-12. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Replacement for the function Eval of Access.
'
' 2018-04-12. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.Access.Eval</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> StringExpr</td><td class="Cell">String</td><td class="Cell">ByRef</td></tr></table></div><br></div></div><br></div></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">+</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image69.png"> <span class="header3"><a name="ArraySorting_Bookmark"></a>File ArraySorting</span></td></tr></table></div><div class="InvisibleIndentation"><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FileName</td><td class="Cell">ArraySorting</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullPath</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> SubType</td><td class="Cell">Module</td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Modules:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image50.png"> <a class="Bookmark" href="#VBAProject.ArraySorting_Bookmark">ArraySorting</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image50.png"> <span class="header4"><a name="VBAProject.ArraySorting_Bookmark"></a>Module ArraySorting</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Name: </span>ArraySorting<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' ArraySorting v1.1.0<br>' (c) 2018-03-26. Gustav Brock, Cactus Data ApS, CPH<br>' https://github.com/GustavBrock/VBA.Round<br>'<br>' Set of functions for sorting arrays.<br>'<br>' License: MIT (http://opensource.org/licenses/mit-license.php)<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' ArraySorting v1.1.0
' (c) 2018-03-26. Gustav Brock, Cactus Data ApS, CPH
' https://github.com/GustavBrock/VBA.Round
'
' Set of functions for sorting arrays.
'
' License: MIT (http://opensource.org/licenses/mit-license.php)
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.ArraySorting</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Namespace</td><td class="Cell">VBAProject</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Methods:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Kind</th><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> Sub</td><td class="Cell"><a class="Bookmark" href="#VBAProject.ArraySorting.QuickSortPublic Sub QuickSort(ByRef Values As Variant)_Bookmark">QuickSort</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> Sub</td><td class="Cell"><a class="Bookmark" href="#VBAProject.ArraySorting.QuickSortIndexPublic Sub QuickSortIndex(ByRef Pointers() As Long, ByVal Values As Variant)_Bookmark">QuickSortIndex</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> Sub</td><td class="Cell"><a class="Bookmark" href="#VBAProject.ArraySorting.QuickSortIndexTestPublic Sub QuickSortIndexTest()_Bookmark">QuickSortIndexTest</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> Sub</td><td class="Cell"><a class="Bookmark" href="#VBAProject.ArraySorting.QuickSortTestPublic Sub QuickSortTest()_Bookmark">QuickSortTest</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> Sub</td><td class="Cell"><a class="Bookmark" href="#VBAProject.ArraySorting.ReverseSortPublic Sub ReverseSort(ByRef Values As Variant)_Bookmark">ReverseSort</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> <span class="header4"><a name="VBAProject.ArraySorting.QuickSortPublic Sub QuickSort(ByRef Values As Variant)_Bookmark"></a>Sub QuickSort</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Sub<br><span class="PropertyName">Name: </span>QuickSort<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Sub QuickSort(ByRef Values As Variant)</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Quickly sort a Variant array.<br>'<br>' The array does not have to be zero- or one-based.<br>'<br>' 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Quickly sort a Variant array.
'
' The array does not have to be zero- or one-based.
'
' 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.ArraySorting.QuickSort</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Sub</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Values</td><td class="Cell">Variant</td><td class="Cell">ByRef</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> <span class="header4"><a name="VBAProject.ArraySorting.QuickSortIndexPublic Sub QuickSortIndex(ByRef Pointers() As Long, ByVal Values As Variant)_Bookmark"></a>Sub QuickSortIndex</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Sub<br><span class="PropertyName">Name: </span>QuickSortIndex<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Sub QuickSortIndex(ByRef Pointers() As Long, ByVal Values As Variant)</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Quickly fill an array with the index of the sorting order of another array.<br>'<br>' The arrays do not have to be zero- or one-based.<br>' For typical usage, see function QuickSortIndexTest.<br>'<br>' 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Quickly fill an array with the index of the sorting order of another array.
'
' The arrays do not have to be zero- or one-based.
' For typical usage, see function QuickSortIndexTest.
'
' 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.ArraySorting.QuickSortIndex</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Sub</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Pointers</td><td class="Cell">Long()</td><td class="Cell">ByRef</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Values</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> <span class="header4"><a name="VBAProject.ArraySorting.QuickSortIndexTestPublic Sub QuickSortIndexTest()_Bookmark"></a>Sub QuickSortIndexTest</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Sub<br><span class="PropertyName">Name: </span>QuickSortIndexTest<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Sub QuickSortIndexTest()</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Demonstrates the usage of function QuickSortIndex.<br>'<br>' 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Demonstrates the usage of function QuickSortIndex.
'
' 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.ArraySorting.QuickSortIndexTest</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Sub</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> <span class="header4"><a name="VBAProject.ArraySorting.QuickSortTestPublic Sub QuickSortTest()_Bookmark"></a>Sub QuickSortTest</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Sub<br><span class="PropertyName">Name: </span>QuickSortTest<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Sub QuickSortTest()</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Demonstrates the usage of function QuickSort.<br>'<br>' 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Demonstrates the usage of function QuickSort.
'
' 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.ArraySorting.QuickSortTest</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Sub</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> <span class="header4"><a name="VBAProject.ArraySorting.ReverseSortPublic Sub ReverseSort(ByRef Values As Variant)_Bookmark"></a>Sub ReverseSort</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Sub<br><span class="PropertyName">Name: </span>ReverseSort<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Sub ReverseSort(ByRef Values As Variant)</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Reverse the order of items of an array.<br>'<br>' 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Reverse the order of items of an array.
'
' 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.ArraySorting.ReverseSort</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Sub</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Values</td><td class="Cell">Variant</td><td class="Cell">ByRef</td></tr></table></div><br></div></div><br></div></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">+</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image69.png"> <span class="header3"><a name="Imperial_Bookmark"></a>File Imperial</span></td></tr></table></div><div class="InvisibleIndentation"><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FileName</td><td class="Cell">Imperial</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullPath</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> SubType</td><td class="Cell">Module</td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Modules:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image50.png"> <a class="Bookmark" href="#VBAProject.Imperial_Bookmark">Imperial</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image50.png"> <span class="header4"><a name="VBAProject.Imperial_Bookmark"></a>Module Imperial</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Name: </span>Imperial<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Imperial v1.0.4<br>' (c) 2018-04-19. Gustav Brock, Cactus Data ApS, CPH<br>' https://github.com/GustavBrock/VBA.Round<br>'<br>' Set of functions for converting between imperial and metric measures<br>' and formatting imperial measures.<br>'<br>' License: MIT (http://opensource.org/licenses/mit-license.php)Option Explicit<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Imperial v1.0.4
' (c) 2018-04-19. Gustav Brock, Cactus Data ApS, CPH
' https://github.com/GustavBrock/VBA.Round
'
' Set of functions for converting between imperial and metric measures
' and formatting imperial measures.
'
' License: MIT (http://opensource.org/licenses/mit-license.php)Option Explicit
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.Imperial</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Namespace</td><td class="Cell">VBAProject</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Constants:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th><th class="TableHeaderRow">Declaration</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image56.png"> InchesPerFoot</td><td class="Cell">Public</td><td class="Cell">Public Const InchesPerFoot      As Currency = 12</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image56.png"> MetersPerInch</td><td class="Cell">Public</td><td class="Cell">Public Const MetersPerInch      As Currency = 0.0254</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image56.png"> SmartDoubleQuote</td><td class="Cell">Public</td><td class="Cell">Public Const SmartDoubleQuote   As Long = 148</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image56.png"> SmartSingleQuote</td><td class="Cell">Public</td><td class="Cell">Public Const SmartSingleQuote   As Long = 146</td></tr></table><br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Methods:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Kind</th><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.Imperial.FormatFeetInchesPublic Function FormatFeetInches(ByVal Value As Variant, Optional ByVal Exponent As Long, Optional ByVal Format As String, Optional ByVal SmartQuotes As Boolean, Optional RoundingMethod As rmRoundingMethod = Midpoint, Optional RoundingAsAbsolute As Boolean) As String_Bookmark">FormatFeetInches</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.Imperial.InchMeterPublic Function InchMeter(ByVal Value As Variant) As Variant_Bookmark">InchMeter</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.Imperial.MeterInchPublic Function MeterInch(ByVal Value As Variant) As Variant_Bookmark">MeterInch</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.Imperial.ParseFeetInchesPublic Function ParseFeetInches(ByVal Expression As String) As Variant_Bookmark">ParseFeetInches</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.Imperial.FormatFeetInchesPublic Function FormatFeetInches(ByVal Value As Variant, Optional ByVal Exponent As Long, Optional ByVal Format As String, Optional ByVal SmartQuotes As Boolean, Optional RoundingMethod As rmRoundingMethod = Midpoint, Optional RoundingAsAbsolute As Boolean) As String_Bookmark"></a>Function FormatFeetInches</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>FormatFeetInches<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function FormatFeetInches(ByVal Value As Variant, Optional ByVal Exponent As Long, Optional ByVal Format As String, Optional ByVal SmartQuotes As Boolean, Optional RoundingMethod As rmRoundingMethod = Midpoint, Optional RoundingAsAbsolute As Boolean) As String</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Format placeholders:<br>'   f       foot value except zero.<br>'   F       foot value including zero.<br>'   i       inch value except zero.<br>'   I       inch value including zero.<br>'   r       fraction value except zero.<br>'   R       fraction value including zero.<br>'   '       foot unit.<br>'   "       inch unit.<br>'   ft      foot unit, short, spelled out.<br>'   in      inch unit, short, spelled out.<br>'   ft.     foot unit, short with dot, spelled out.<br>'   in.     inch unit, short with dot, spelled out.<br>'   foot    foot unit, long, spelled out.<br>'   inch    inch unit, long, spelled out.<br>'   /       fraction separator (divider)<br>'   <space> spacer.<br>'   -       dash.<br>'   \       escape character.<br>'<br>' Examples:<br>'   FormatFeetInches(17.222, 4)                         -> 1' 5-1/4"<br>'   FormatFeetInches(17.222, 4, , True)                 -> 1’ 5-1/4”    ' Smart Quotes.<br>'   FormatFeetInches(17.222, 4, "i-r")                  -> 17-1/4<br>'   FormatFeetInches(17.222, 4, "i-r""")                -> 17-1/4"<br>'   FormatFeetInches(17.222, 6, "i r""")                -> 17 7/32"<br>'   FormatFeetInches(7.222, 4, "f' i-r""")              -> 7-1/4"<br>'   FormatFeetInches(7.222, 4, "F' i-r""")              -> 0' 7-1/4"<br>'   FormatFeetInches(12.222, 4, "f' i-r""")             -> 1' 1/4"<br>'   FormatFeetInches(12.222, 4, "f' I-r""")             -> 1' 0-1/4"<br>'   FormatFeetInches(17.222, 0, "i-r""")                -> 17"<br>'   FormatFeetInches(17.222, 0, "i-R""")                -> 17-0/0"<br>'   FormatFeetInches(0.222, 2, "f' i-r""")              -> 1/4"<br>'   FormatFeetInches(0.222, 2, "F' i-r""")              -> 0' 1/4"<br>'   FormatFeetInches(12.222, 2, "f ft i r in")          -> 1 ft 1/4 in<br>'   FormatFeetInches(12.222, 0, "f ft i r in")          -> 1 ft<br>'   FormatFeetInches(12.222, 0, "f ft I r in")          -> 1 ft 0 in<br>'   FormatFeetInches(17.222, 2, "fft. I rin.")          -> 1 ft. 5 1/4 in.<br>'   FormatFeetInches(17.222, 2, "i r inches")           -> 17 1/4 inches<br>'   FormatFeetInches(1.222, 2, "i r inches")            -> 1 1/4 inches<br>'   FormatFeetInches(1.222, 0, "i r inches")            -> 1 inch<br>'   FormatFeetInches(17.222, 0, "i r inch")             -> 17 inches<br>'   FormatFeetInches(1.222, 0, "i r inch")              -> 1 inch<br>'   FormatFeetInches(27.222, 0, "f feet i r inches")    -> 2 feet 3 inches<br>'   FormatFeetInches(17.222, 0, "f feet i r inches")    -> 1 foot 5 inches<br>'   FormatFeetInches(7.222, 0, "F feet i r inches")     -> 0 feet 7 inches<br>'   FormatFeetInches(7.222, 2, "F feet i-r inches")     -> 0 feet 7-1/4 inches<br>'   FormatFeetInches(27.22, 6, "f foot and I r inch")   -> 2 feet and 3 7/32 inches<br>'<br>'   FormatFeetInches(17.222, 0, , , Up)                 -> 1' 6"<br>'   FormatFeetInches(17.222, 0, , , Down)               -> 1' 5"<br>'<br>' Also, se comments for the required functions:<br>'<br>'   ConvertDecimalFractions<br>'   RoundUpBase2<br>'   RoundMidBase2<br>'   RoundDownBase2<br>'<br>' 2018-04-12. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Format placeholders:
'   f       foot value except zero.
'   F       foot value including zero.
'   i       inch value except zero.
'   I       inch value including zero.
'   r       fraction value except zero.
'   R       fraction value including zero.
'   '       foot unit.
'   "       inch unit.
'   ft      foot unit, short, spelled out.
'   in      inch unit, short, spelled out.
'   ft.     foot unit, short with dot, spelled out.
'   in.     inch unit, short with dot, spelled out.
'   foot    foot unit, long, spelled out.
'   inch    inch unit, long, spelled out.
'   /       fraction separator (divider)
'   &lt;space&gt; spacer.
'   -       dash.
'   \       escape character.
'
' Examples:
'   FormatFeetInches(17.222, 4)                         -&gt; 1' 5-1/4"
'   FormatFeetInches(17.222, 4, , True)                 -&gt; 1’ 5-1/4”    ' Smart Quotes.
'   FormatFeetInches(17.222, 4, "i-r")                  -&gt; 17-1/4
'   FormatFeetInches(17.222, 4, "i-r""")                -&gt; 17-1/4"
'   FormatFeetInches(17.222, 6, "i r""")                -&gt; 17 7/32"
'   FormatFeetInches(7.222, 4, "f' i-r""")              -&gt; 7-1/4"
'   FormatFeetInches(7.222, 4, "F' i-r""")              -&gt; 0' 7-1/4"
'   FormatFeetInches(12.222, 4, "f' i-r""")             -&gt; 1' 1/4"
'   FormatFeetInches(12.222, 4, "f' I-r""")             -&gt; 1' 0-1/4"
'   FormatFeetInches(17.222, 0, "i-r""")                -&gt; 17"
'   FormatFeetInches(17.222, 0, "i-R""")                -&gt; 17-0/0"
'   FormatFeetInches(0.222, 2, "f' i-r""")              -&gt; 1/4"
'   FormatFeetInches(0.222, 2, "F' i-r""")              -&gt; 0' 1/4"
'   FormatFeetInches(12.222, 2, "f ft i r in")          -&gt; 1 ft 1/4 in
'   FormatFeetInches(12.222, 0, "f ft i r in")          -&gt; 1 ft
'   FormatFeetInches(12.222, 0, "f ft I r in")          -&gt; 1 ft 0 in
'   FormatFeetInches(17.222, 2, "fft. I rin.")          -&gt; 1 ft. 5 1/4 in.
'   FormatFeetInches(17.222, 2, "i r inches")           -&gt; 17 1/4 inches
'   FormatFeetInches(1.222, 2, "i r inches")            -&gt; 1 1/4 inches
'   FormatFeetInches(1.222, 0, "i r inches")            -&gt; 1 inch
'   FormatFeetInches(17.222, 0, "i r inch")             -&gt; 17 inches
'   FormatFeetInches(1.222, 0, "i r inch")              -&gt; 1 inch
'   FormatFeetInches(27.222, 0, "f feet i r inches")    -&gt; 2 feet 3 inches
'   FormatFeetInches(17.222, 0, "f feet i r inches")    -&gt; 1 foot 5 inches
'   FormatFeetInches(7.222, 0, "F feet i r inches")     -&gt; 0 feet 7 inches
'   FormatFeetInches(7.222, 2, "F feet i-r inches")     -&gt; 0 feet 7-1/4 inches
'   FormatFeetInches(27.22, 6, "f foot and I r inch")   -&gt; 2 feet and 3 7/32 inches
'
'   FormatFeetInches(17.222, 0, , , Up)                 -&gt; 1' 6"
'   FormatFeetInches(17.222, 0, , , Down)               -&gt; 1' 5"
'
' Also, se comments for the required functions:
'
'   ConvertDecimalFractions
'   RoundUpBase2
'   RoundMidBase2
'   RoundDownBase2
'
' 2018-04-12. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.Imperial.FormatFeetInches</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">String</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">String</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">String</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Exponent</td><td class="Cell">Long</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Format</td><td class="Cell">String</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> SmartQuotes</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundingMethod</td><td class="Cell">rmRoundingMethod</td><td class="Cell">Optional</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundingAsAbsolute</td><td class="Cell">Boolean</td><td class="Cell">Optional</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.Imperial.InchMeterPublic Function InchMeter(ByVal Value As Variant) As Variant_Bookmark"></a>Function InchMeter</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>InchMeter<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function InchMeter(ByVal Value As Variant) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Converts a value for a measure in meters to inches.<br>' Returns 0 (zero) for invalid inputs.<br>'<br>' Will convert any value within the range of Decimal<br>' with the precision of Decimal.<br>' Converts values exceeding the range of Decimal as<br>' Double.<br>' Largest value with full 28-digit precision is 1E+27<br>' Smallest value with full 28-digit precision is 1E-26<br>'<br>' Examples:<br>'   Meter = 4.0<br>'   Inch = InchMeter(Meter)<br>'   Inch -> 157.48031496062992125984251969<br>'<br>'   Meter = 2.54<br>'   Inch = InchMeter(Meter)<br>'   Inch -> 100.0<br>'<br>' 2018-04-09. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Converts a value for a measure in meters to inches.
' Returns 0 (zero) for invalid inputs.
'
' Will convert any value within the range of Decimal
' with the precision of Decimal.
' Converts values exceeding the range of Decimal as
' Double.
' Largest value with full 28-digit precision is 1E+27
' Smallest value with full 28-digit precision is 1E-26
'
' Examples:
'   Meter = 4.0
'   Inch = InchMeter(Meter)
'   Inch -&gt; 157.48031496062992125984251969
'
'   Meter = 2.54
'   Inch = InchMeter(Meter)
'   Inch -&gt; 100.0
'
' 2018-04-09. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.Imperial.InchMeter</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.Imperial.MeterInchPublic Function MeterInch(ByVal Value As Variant) As Variant_Bookmark"></a>Function MeterInch</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>MeterInch<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function MeterInch(ByVal Value As Variant) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Converts a value for a measure in inches to meters.<br>' Returns 0 (zero) for invalid inputs.<br>'<br>' Will convert any value within the range of Decimal<br>' with the precision of Decimal.<br>' Converts values exceeding the range of Decimal as<br>' Double.<br>'<br>' Largest value with full 28-digit precision is 1E+26<br>' Smallest value with full 28-digit precision is 1E-24<br>'<br>' Examples:<br>'   Inch = 40.0<br>'   Meter = MeterInch(Inch)<br>'   Meter -> 1.016<br>'<br>'   Inch = 1 / MetersPerInch            ' Double.<br>'   Inch -> 39.3700787401575<br>'   Meter = MeterInch(Inch)<br>'   Meter -> 1.0000000000000005<br>'<br>'   Inch = CDec(1) / MetersPerInch      ' Decimal.<br>'   Inch -> 39.370078740157480314960629921<br>'   Meter = MeterInch(Inch)<br>'   Meter -> 1.0<br>'<br>' 2018-04-09. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Converts a value for a measure in inches to meters.
' Returns 0 (zero) for invalid inputs.
'
' Will convert any value within the range of Decimal
' with the precision of Decimal.
' Converts values exceeding the range of Decimal as
' Double.
'
' Largest value with full 28-digit precision is 1E+26
' Smallest value with full 28-digit precision is 1E-24
'
' Examples:
'   Inch = 40.0
'   Meter = MeterInch(Inch)
'   Meter -&gt; 1.016
'
'   Inch = 1 / MetersPerInch            ' Double.
'   Inch -&gt; 39.3700787401575
'   Meter = MeterInch(Inch)
'   Meter -&gt; 1.0000000000000005
'
'   Inch = CDec(1) / MetersPerInch      ' Decimal.
'   Inch -&gt; 39.370078740157480314960629921
'   Meter = MeterInch(Inch)
'   Meter -&gt; 1.0
'
' 2018-04-09. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.Imperial.MeterInch</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.Imperial.ParseFeetInchesPublic Function ParseFeetInches(ByVal Expression As String) As Variant_Bookmark"></a>Function ParseFeetInches</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>ParseFeetInches<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function ParseFeetInches(ByVal Expression As String) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Parse a string for a value of feet and/or inches.<br>' The inch part can contain a fraction or be decimal.<br>' Returns the parsed values as decimal inches.<br>' For unparsable expressions, zero is returned.<br>'<br>' Maximum returned value is +/- 7922816299999618530273437599.<br>' Negative values will only be read as such, if the first<br>' non-space character is a minus sign.<br>'<br>' Smallest reliably parsed value is the fraction 1/2097152<br>' or the decimal value 0.000000476837158203125.<br>'<br>' Requires when not used in Access, for example Excel,<br>' either:<br>'   Module Access<br>' or a reference to Access, for example for Access 2016:<br>'   Microsoft Access 16.0 Object Library<br>'<br>' 2018-04-19. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Parse a string for a value of feet and/or inches.
' The inch part can contain a fraction or be decimal.
' Returns the parsed values as decimal inches.
' For unparsable expressions, zero is returned.
'
' Maximum returned value is +/- 7922816299999618530273437599.
' Negative values will only be read as such, if the first
' non-space character is a minus sign.
'
' Smallest reliably parsed value is the fraction 1/2097152
' or the decimal value 0.000000476837158203125.
'
' Requires when not used in Access, for example Excel,
' either:
'   Module Access
' or a reference to Access, for example for Access 2016:
'   Microsoft Access 16.0 Object Library
'
' 2018-04-19. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.Imperial.ParseFeetInches</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Expression</td><td class="Cell">String</td><td class="Cell">ByVal</td></tr></table></div><br></div></div><br></div></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">+</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image69.png"> <span class="header3"><a name="RoundingMethods_Bookmark"></a>File RoundingMethods</span></td></tr></table></div><div class="InvisibleIndentation"><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FileName</td><td class="Cell">RoundingMethods</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullPath</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> SubType</td><td class="Cell">Module</td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Modules:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image50.png"> <a class="Bookmark" href="#VBAProject.RoundingMethods_Bookmark">RoundingMethods</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image50.png"> <span class="header4"><a name="VBAProject.RoundingMethods_Bookmark"></a>Module RoundingMethods</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Name: </span>RoundingMethods<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' RoundingMethods v1.4.0<br>' (c) 2019-11-05. Gustav Brock, Cactus Data ApS, CPH<br>' https://github.com/GustavBrock/VBA.Round<br>'<br>' Set of functions for rounding Currency, Decimal, and Double<br>' up, down, by 4/5, to a specified count of significant figures,<br>' or as a sum.<br>'<br>' Set of functions for rounding Currency up, down, or by 4/5 by<br>' a value.<br>'<br>' Set of functions for rounding Currency, Decimal, and Double<br>' up, down, or by 4/5 with the power of two and debugging, and<br>' for converting decimal numbers to integers and fractions.<br>'<br>' License: MIT (http://opensource.org/licenses/mit-license.php)<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' RoundingMethods v1.4.0
' (c) 2019-11-05. Gustav Brock, Cactus Data ApS, CPH
' https://github.com/GustavBrock/VBA.Round
'
' Set of functions for rounding Currency, Decimal, and Double
' up, down, by 4/5, to a specified count of significant figures,
' or as a sum.
'
' Set of functions for rounding Currency up, down, or by 4/5 by
' a value.
'
' Set of functions for rounding Currency, Decimal, and Double
' up, down, or by 4/5 with the power of two and debugging, and
' for converting decimal numbers to integers and fractions.
'
' License: MIT (http://opensource.org/licenses/mit-license.php)
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Namespace</td><td class="Cell">VBAProject</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Constants:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th><th class="TableHeaderRow">Declaration</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image56.png"> Base10</td><td class="Cell">Public</td><td class="Cell">Public Const Base10     As Double = 10</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image56.png"> Base2</td><td class="Cell">Public</td><td class="Cell">Public Const Base2      As Double = 2</td></tr></table><br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Enums:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image51.png"> <a class="Bookmark" href="#VBAProject.rmRoundingMethod_Bookmark">rmRoundingMethod</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image51.png"> <span class="header4"><a name="VBAProject.rmRoundingMethod_Bookmark"></a>Enum rmRoundingMethod</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Name: </span>rmRoundingMethod<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Enum rmRoundingMethod</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Values:</span></td></tr></table></div><div class="Indentation"><br><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image58.png"> Down</td><td class="Cell">-1</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image58.png"> Midpoint</td><td class="Cell">0</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image58.png"> Up</td><td class="Cell">1</td></tr></table></div><br></div></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Methods:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Kind</th><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.ConvertDecimalFractionsPublic Function ConvertDecimalFractions(ByVal Value As Variant, ByVal Exponent As Integer, Optional ByRef Numerator As Long, Optional ByRef Denominator As Long, Optional RoundingMethod As rmRoundingMethod = Midpoint, Optional RoundingAsAbsolute As Boolean) As Variant_Bookmark">ConvertDecimalFractions</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> Sub</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.DebugBase2Public Sub DebugBase2(ByVal Value As Variant, Optional ByVal Exponent As Long)_Bookmark">DebugBase2</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.Log10Public Function Log10(ByVal Value As Double) As Double_Bookmark">Log10</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.Log2Public Function Log2(ByVal Value As Double) As Double_Bookmark">Log2</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundAmountDownPublic Function RoundAmountDown(ByVal Value As Currency, Optional ByVal RoundValue As Currency, Optional ByVal RoundingAwayFromZero As Boolean) As Currency_Bookmark">RoundAmountDown</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundAmountMidPublic Function RoundAmountMid(ByVal Value As Currency, Optional ByVal RoundValue As Currency) As Currency_Bookmark">RoundAmountMid</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundAmountUpPublic Function RoundAmountUp(ByVal Value As Currency, Optional ByVal RoundValue As Currency, Optional ByVal RoundingToZero As Boolean) As Currency_Bookmark">RoundAmountUp</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundDownPublic Function RoundDown(ByVal Value As Variant, Optional ByVal NumDigitsAfterDecimal As Long, Optional ByVal RoundingToZero As Boolean) As Variant_Bookmark">RoundDown</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundDownBase2Public Function RoundDownBase2(ByVal Value As Variant, Optional ByVal Exponent As Long, Optional ByVal RoundingToZero As Boolean) As Variant_Bookmark">RoundDownBase2</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundMidPublic Function RoundMid(ByVal Value As Variant, Optional ByVal NumDigitsAfterDecimal As Long, Optional ByVal MidwayRoundingToEven As Boolean) As Variant_Bookmark">RoundMid</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundMidBase2Public Function RoundMidBase2(ByVal Value As Variant, Optional ByVal Exponent As Long) As Variant_Bookmark">RoundMidBase2</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundSignificantCurPublic Function RoundSignificantCur(ByVal Value As Currency, ByVal Digits As Integer, Optional ByVal NoDecimals As Boolean, Optional ByVal MidwayRoundingToEven As Boolean) As Variant_Bookmark">RoundSignificantCur</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundSignificantDblPublic Function RoundSignificantDbl(ByVal Value As Double, ByVal Digits As Integer, Optional ByVal NoDecimals As Boolean, Optional ByVal MidwayRoundingToEven As Boolean) As Double_Bookmark">RoundSignificantDbl</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundSignificantDecPublic Function RoundSignificantDec(ByVal Value As Variant, ByVal Digits As Integer, Optional ByVal NoDecimals As Boolean, Optional ByVal MidwayRoundingToEven As Boolean) As Variant_Bookmark">RoundSignificantDec</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundSumPublic Function RoundSum(ByVal Values As Variant, Optional ByRef Total As Variant, Optional ByVal NumDigitsAfterDecimal As Long) As Variant_Bookmark">RoundSum</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundUpPublic Function RoundUp(ByVal Value As Variant, Optional ByVal NumDigitsAfterDecimal As Long, Optional ByVal RoundingAwayFromZero As Boolean) As Variant_Bookmark">RoundUp</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethods.RoundUpBase2Public Function RoundUpBase2(ByVal Value As Variant, Optional ByVal Exponent As Long, Optional ByVal RoundingAwayFromZero As Boolean) As Variant_Bookmark">RoundUpBase2</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.ConvertDecimalFractionsPublic Function ConvertDecimalFractions(ByVal Value As Variant, ByVal Exponent As Integer, Optional ByRef Numerator As Long, Optional ByRef Denominator As Long, Optional RoundingMethod As rmRoundingMethod = Midpoint, Optional RoundingAsAbsolute As Boolean) As Variant_Bookmark"></a>Function ConvertDecimalFractions</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>ConvertDecimalFractions<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function ConvertDecimalFractions(ByVal Value As Variant, ByVal Exponent As Integer, Optional ByRef Numerator As Long, Optional ByRef Denominator As Long, Optional RoundingMethod As rmRoundingMethod = Midpoint, Optional RoundingAsAbsolute As Boolean) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds and converts a decimal value to an integer and the fraction of an integer<br>' using 4/5 midpoint rounding, optionally rounding up or down.<br>'<br>' Rounding method is determined by parameter RoundingMethod.<br>' For rounding up or down, rounding of negative values can optionally be set to<br>' away-from-zero or towards-zero respectively by parameter RoundingAsAbsolute.<br>'<br>' Returns the rounded value as a decimal.<br>' Returns numerator and denominator of the fraction by reference.<br>'<br>' For general examples, see function RoundMidBase2, RoundUpBase2, and RoundDownBase2.<br>'<br>' Will, for example, convert decimal inches to integer inches and a fraction of inches.<br>' However, numerator and denominator of the fraction are returned by reference in the<br>' parameters Numerator and Denominator for the value to be formatted as text by the<br>' calling procedure.<br>'<br>' Example:<br>'   Value = 7.22<br>'   Exponent = 2    ' will round to 1/4.<br>'   Numerator = 0<br>'   Denominator = 0<br>'<br>'   Result = ConvertDecimalFractions(Value, Exponent, Numerator, Denominator)<br>'<br>'   Result = 7.25<br>'   Numerator = 1<br>'   Denominator = 4<br>'<br>'   Result = ConvertDecimalFractions(Value, Exponent, Numerator, Denominator, Up)<br>'<br>'   Result = 7.25<br>'   Numerator = 1<br>'   Denominator = 4<br>'<br>'   Result = ConvertDecimalFractions(Value, Exponent, Numerator, Denominator, Down)<br>'<br>'   Result = 7<br>'   Numerator = 0<br>'   Denominator = 0<br>'<br>' If negative, parameter Exponent determines the rounding of the fraction as<br>' 1 / 2 ^ Exponent with a maximum of 21 - or from 1 / 2 to 1 / 2097152.<br>' For inches, that is a range from 12.7 mm to about 12.1 nm.<br>'<br>' If zero or positive, parameter Exponent determines the rounding of the<br>' integer value with 2 ^ Exponent with a maximum of 21 - or from 1 to 2097152.<br>' For inches, that is a range from 25.4 mm to about 53.27 km.<br>'<br>' Also, se comments for the required functions:<br>'<br>'   RoundUpBase2<br>'   RoundMidBase2<br>'   RoundDownBase2<br>'<br>' 2018-04-05. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds and converts a decimal value to an integer and the fraction of an integer
' using 4/5 midpoint rounding, optionally rounding up or down.
'
' Rounding method is determined by parameter RoundingMethod.
' For rounding up or down, rounding of negative values can optionally be set to
' away-from-zero or towards-zero respectively by parameter RoundingAsAbsolute.
'
' Returns the rounded value as a decimal.
' Returns numerator and denominator of the fraction by reference.
'
' For general examples, see function RoundMidBase2, RoundUpBase2, and RoundDownBase2.
'
' Will, for example, convert decimal inches to integer inches and a fraction of inches.
' However, numerator and denominator of the fraction are returned by reference in the
' parameters Numerator and Denominator for the value to be formatted as text by the
' calling procedure.
'
' Example:
'   Value = 7.22
'   Exponent = 2    ' will round to 1/4.
'   Numerator = 0
'   Denominator = 0
'
'   Result = ConvertDecimalFractions(Value, Exponent, Numerator, Denominator)
'
'   Result = 7.25
'   Numerator = 1
'   Denominator = 4
'
'   Result = ConvertDecimalFractions(Value, Exponent, Numerator, Denominator, Up)
'
'   Result = 7.25
'   Numerator = 1
'   Denominator = 4
'
'   Result = ConvertDecimalFractions(Value, Exponent, Numerator, Denominator, Down)
'
'   Result = 7
'   Numerator = 0
'   Denominator = 0
'
' If negative, parameter Exponent determines the rounding of the fraction as
' 1 / 2 ^ Exponent with a maximum of 21 - or from 1 / 2 to 1 / 2097152.
' For inches, that is a range from 12.7 mm to about 12.1 nm.
'
' If zero or positive, parameter Exponent determines the rounding of the
' integer value with 2 ^ Exponent with a maximum of 21 - or from 1 to 2097152.
' For inches, that is a range from 25.4 mm to about 53.27 km.
'
' Also, se comments for the required functions:
'
'   RoundUpBase2
'   RoundMidBase2
'   RoundDownBase2
'
' 2018-04-05. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.ConvertDecimalFractions</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Exponent</td><td class="Cell">Integer</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Numerator</td><td class="Cell">Long</td><td class="Cell">Optional ByRef</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Denominator</td><td class="Cell">Long</td><td class="Cell">Optional ByRef</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundingMethod</td><td class="Cell">rmRoundingMethod</td><td class="Cell">Optional</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundingAsAbsolute</td><td class="Cell">Boolean</td><td class="Cell">Optional</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> <span class="header4"><a name="VBAProject.RoundingMethods.DebugBase2Public Sub DebugBase2(ByVal Value As Variant, Optional ByVal Exponent As Long)_Bookmark"></a>Sub DebugBase2</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Sub<br><span class="PropertyName">Name: </span>DebugBase2<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Sub DebugBase2(ByVal Value As Variant, Optional ByVal Exponent As Long)</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds a value and prints the result in its Base 2 components<br>' and as a decimal value, and in a integer-fraction format.<br>'<br>' Will accept values within +/- 2 ^ 96.<br>' Also, se comments for the required functions:<br>'<br>'   ConvertDecimalFractions<br>'   RoundMidBase2<br>'   Log2<br>'<br>' Example:<br>'<br>'   DebugBase2 746.873, 2<br>'   Exponent      2 ^ Exponent  Factor        Value         Fraction<br>'    9             512           1             512<br>'    8             256           0             0<br>'    7             128           1             128<br>'    6             64            1             64<br>'    5             32            1             32<br>'    4             16            0             0<br>'    3             8             1             8<br>'    2             4             0             0<br>'    1             2             1             2<br>'    0             1             0             0<br>'   Total:                                     746          3/4<br>'   Decimal:                                   746,75<br>'<br>' 2018-03-09. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds a value and prints the result in its Base 2 components
' and as a decimal value, and in a integer-fraction format.
'
' Will accept values within +/- 2 ^ 96.
' Also, se comments for the required functions:
'
'   ConvertDecimalFractions
'   RoundMidBase2
'   Log2
'
' Example:
'
'   DebugBase2 746.873, 2
'   Exponent      2 ^ Exponent  Factor        Value         Fraction
'    9             512           1             512
'    8             256           0             0
'    7             128           1             128
'    6             64            1             64
'    5             32            1             32
'    4             16            0             0
'    3             8             1             8
'    2             4             0             0
'    1             2             1             2
'    0             1             0             0
'   Total:                                     746          3/4
'   Decimal:                                   746,75
'
' 2018-03-09. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.DebugBase2</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Sub</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Exponent</td><td class="Cell">Long</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.Log10Public Function Log10(ByVal Value As Double) As Double_Bookmark"></a>Function Log10</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>Log10<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function Log10(ByVal Value As Double) As Double</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Returns Log 10 of Value.<br>'<br>' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Returns Log 10 of Value.
'
' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.Log10</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Double</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Double</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Double</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Double</td><td class="Cell">ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.Log2Public Function Log2(ByVal Value As Double) As Double_Bookmark"></a>Function Log2</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>Log2<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function Log2(ByVal Value As Double) As Double</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Returns Log 2 of Value.<br>'<br>' 2018-02-20. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Returns Log 2 of Value.
'
' 2018-02-20. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.Log2</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Double</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Double</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Double</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Double</td><td class="Cell">ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundAmountDownPublic Function RoundAmountDown(ByVal Value As Currency, Optional ByVal RoundValue As Currency, Optional ByVal RoundingAwayFromZero As Boolean) As Currency_Bookmark"></a>Function RoundAmountDown</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundAmountDown<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundAmountDown(ByVal Value As Currency, Optional ByVal RoundValue As Currency, Optional ByVal RoundingAwayFromZero As Boolean) As Currency</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' 2019-11-05. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' 2019-11-05. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundAmountDown</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Currency</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Currency</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Currency</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Currency</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundValue</td><td class="Cell">Currency</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundingAwayFromZero</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundAmountMidPublic Function RoundAmountMid(ByVal Value As Currency, Optional ByVal RoundValue As Currency) As Currency_Bookmark"></a>Function RoundAmountMid</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundAmountMid<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundAmountMid(ByVal Value As Currency, Optional ByVal RoundValue As Currency) As Currency</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds a value by 4/5 to the nearest multiplum of a rounding value.<br>' If no rounding value is passed, the value will not be rounded.<br>'<br>' Accepts any value of data type Currency and a rounding value<br>' that will result in a value within the range of Currency.<br>'<br>' Mimics Excel function MRound without the limitations of this.<br>'<br>' Examples:<br>'<br>'   RoundAmountMid(-922337203685477.5808, 0.05)     ->  overflow<br>'   RoundAmountMid(-922337203685477.5808, 0.0001)   -> -922337203685477.5808<br>'   RoundAmountMid( 922337203685477.5807, 0.05)     ->  overflow<br>'   RoundAmountMid( 922337203685477.5807, 0.0001)   ->  922337203685477.5807<br>'   RoundAmountMid( 10, 3)                          ->                9<br>'   RoundAmountMid(-10,-3)                          ->               -9<br>'   RoundAmountMid( 1.3, 0.2)                       ->                1.4<br>'   RoundAmountMid( 122.25, 0.5)                    ->              122.5<br>'   RoundAmountMid( 6.05, 0.1)                      ->                6.1<br>'   RoundAmountMid( 7.05, 0.1)                      ->                7.1<br>'<br>' 2019-11-05. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds a value by 4/5 to the nearest multiplum of a rounding value.
' If no rounding value is passed, the value will not be rounded.
'
' Accepts any value of data type Currency and a rounding value
' that will result in a value within the range of Currency.
'
' Mimics Excel function MRound without the limitations of this.
'
' Examples:
'
'   RoundAmountMid(-922337203685477.5808, 0.05)     -&gt;  overflow
'   RoundAmountMid(-922337203685477.5808, 0.0001)   -&gt; -922337203685477.5808
'   RoundAmountMid( 922337203685477.5807, 0.05)     -&gt;  overflow
'   RoundAmountMid( 922337203685477.5807, 0.0001)   -&gt;  922337203685477.5807
'   RoundAmountMid( 10, 3)                          -&gt;                9
'   RoundAmountMid(-10,-3)                          -&gt;               -9
'   RoundAmountMid( 1.3, 0.2)                       -&gt;                1.4
'   RoundAmountMid( 122.25, 0.5)                    -&gt;              122.5
'   RoundAmountMid( 6.05, 0.1)                      -&gt;                6.1
'   RoundAmountMid( 7.05, 0.1)                      -&gt;                7.1
'
' 2019-11-05. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundAmountMid</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Currency</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Currency</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Currency</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Currency</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundValue</td><td class="Cell">Currency</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundAmountUpPublic Function RoundAmountUp(ByVal Value As Currency, Optional ByVal RoundValue As Currency, Optional ByVal RoundingToZero As Boolean) As Currency_Bookmark"></a>Function RoundAmountUp</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundAmountUp<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundAmountUp(ByVal Value As Currency, Optional ByVal RoundValue As Currency, Optional ByVal RoundingToZero As Boolean) As Currency</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds a value up to the nearest multiplum of a rounding value.<br>' If a negative or no rounding value is passed, the value will<br>' not be rounded.<br>'<br>' Accepts any value of data type Currency and a rounding value<br>' that will result in a value within the range of Currency.<br>'<br>' Negative values are rounded away from zero or, optionally, to zero.<br>'<br>' Examples:<br>'<br>'   RoundAmountUp(-922337203685477.5808, 0.05)      -> -922337203685477.55<br>'   RoundAmountUp( 922337203685477.5807, 0.05)      ->  922337203685477.55<br>'   RoundAmountUp( 10, 3)                           ->                9<br>'   RoundAmountUp(-10,-3)                           ->               -9<br>'   RoundAmountUp( 1.3, 0.2)                        ->                1.2<br>'   RoundAmountUp( 122.25, 0.5)                     ->              122<br>'   RoundAmountUp( 122.25, 25)                      ->              125<br>'   RoundAmountUp(-122.25, 25)                      ->             -125<br>'   RoundAmountUp(-122.25, 25, True)                ->             -100<br>'   RoundAmountUp( 6.05, 0.1)                       ->                6<br>'   RoundAmountUp( 7.05, 0.1)                       ->                7<br>'<br>' 2019-11-05. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds a value up to the nearest multiplum of a rounding value.
' If a negative or no rounding value is passed, the value will
' not be rounded.
'
' Accepts any value of data type Currency and a rounding value
' that will result in a value within the range of Currency.
'
' Negative values are rounded away from zero or, optionally, to zero.
'
' Examples:
'
'   RoundAmountUp(-922337203685477.5808, 0.05)      -&gt; -922337203685477.55
'   RoundAmountUp( 922337203685477.5807, 0.05)      -&gt;  922337203685477.55
'   RoundAmountUp( 10, 3)                           -&gt;                9
'   RoundAmountUp(-10,-3)                           -&gt;               -9
'   RoundAmountUp( 1.3, 0.2)                        -&gt;                1.2
'   RoundAmountUp( 122.25, 0.5)                     -&gt;              122
'   RoundAmountUp( 122.25, 25)                      -&gt;              125
'   RoundAmountUp(-122.25, 25)                      -&gt;             -125
'   RoundAmountUp(-122.25, 25, True)                -&gt;             -100
'   RoundAmountUp( 6.05, 0.1)                       -&gt;                6
'   RoundAmountUp( 7.05, 0.1)                       -&gt;                7
'
' 2019-11-05. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundAmountUp</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Currency</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Currency</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Currency</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Currency</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundValue</td><td class="Cell">Currency</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundingToZero</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundDownPublic Function RoundDown(ByVal Value As Variant, Optional ByVal NumDigitsAfterDecimal As Long, Optional ByVal RoundingToZero As Boolean) As Variant_Bookmark"></a>Function RoundDown</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundDown<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundDown(ByVal Value As Variant, Optional ByVal NumDigitsAfterDecimal As Long, Optional ByVal RoundingToZero As Boolean) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds Value down with count of decimals as specified with parameter NumDigitsAfterDecimal.<br>'<br>' Rounds to integer if NumDigitsAfterDecimal is zero.<br>'<br>' Optionally, rounds negative values towards zero.<br>'<br>' Uses CDec() to prevent bit errors of reals.<br>'<br>' Execution time is about 0.5µs for rounding to integer,<br>' else about 1µs.<br>'<br>' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds Value down with count of decimals as specified with parameter NumDigitsAfterDecimal.
'
' Rounds to integer if NumDigitsAfterDecimal is zero.
'
' Optionally, rounds negative values towards zero.
'
' Uses CDec() to prevent bit errors of reals.
'
' Execution time is about 0.5µs for rounding to integer,
' else about 1µs.
'
' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundDown</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> NumDigitsAfterDecimal</td><td class="Cell">Long</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundingToZero</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundDownBase2Public Function RoundDownBase2(ByVal Value As Variant, Optional ByVal Exponent As Long, Optional ByVal RoundingToZero As Boolean) As Variant_Bookmark"></a>Function RoundDownBase2</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundDownBase2<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundDownBase2(ByVal Value As Variant, Optional ByVal Exponent As Long, Optional ByVal RoundingToZero As Boolean) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds Value down to the power of two as specified with parameter Exponent.<br>'<br>' If Exponent is positive, the fraction of Value is rounded to an integer a fraction of 1 / 2 ^ Exponent.<br>' If Exponent is zero, Value is rounded to an integer.<br>' If Exponent is negative, Value is rounded to an integer and a multiplum of 2 ^ Exponent.<br>'<br>' Optionally, rounds negative values towards zero.<br>'<br>' Rounds correctly Value until max/min value limited by a scaling of 2 raised to the power of Exponent.<br>'<br>' Smallest fraction for rounding is:<br>'   2 ^ -21 (= 1 / 2097152)<br>' or:<br>'   0.000000476837158203125<br>'<br>' Largest numerical value to round with maximum resolution is:<br>'   79228162 + (2 ^ 21 - 8) / 2 ^ 21<br>' or:<br>'   79228162.999996185302734375<br>'<br>' Expected rounded value must not exceed the range of:<br>'   +/- 79,228,162,514,264,337,593,543,950,335<br>'<br>' Uses CDec() to prevent bit errors of reals.<br>'<br>' Execution time is about 0.5µs for rounding to integer, else about 1µs.<br>'<br>' Examples, integers:<br>'   RoundDownBase2(1001, -3)                -> 1000<br>'   RoundDownBase2(1001, -8)                ->  768<br>'   RoundDownBase2(17.03, -4)               ->   16<br>'   RoundDownBase2(17.03, -5)               ->    0<br>'<br>' Examples, decimals:<br>'   1 / 2 ^ 4 = 0.0625                                  Step value when rounding by 1/16<br>'   RoundDownBase2(17.03, 4)                -> 17<br>'   RoundDownBase2(17.08, 4)                -> 17.0625<br>'   RoundDownBase2(17.1, 4)                 -> 17.0625<br>'   RoundDownBase2(17.2, 4)                 -> 17.1875<br>'<br>'   1 / 2 ^ 5 = 0.03125                                 Step value when rounding by 1/32<br>'   RoundDownBase2(17.125 + 0.00000, 4)     -> 17.125   Exact value. No rounding.<br>'   RoundDownBase2(17.125 + 0.03124, 4)     -> 17.125<br>'   RoundDownBase2(17.125 + 0.03125, 4)     -> 17.125<br>'<br>' More info on the power of two and rounding:<br>'   https://en.wikipedia.org/wiki/Power_of_two<br>'<br>' 2018-04-02. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds Value down to the power of two as specified with parameter Exponent.
'
' If Exponent is positive, the fraction of Value is rounded to an integer a fraction of 1 / 2 ^ Exponent.
' If Exponent is zero, Value is rounded to an integer.
' If Exponent is negative, Value is rounded to an integer and a multiplum of 2 ^ Exponent.
'
' Optionally, rounds negative values towards zero.
'
' Rounds correctly Value until max/min value limited by a scaling of 2 raised to the power of Exponent.
'
' Smallest fraction for rounding is:
'   2 ^ -21 (= 1 / 2097152)
' or:
'   0.000000476837158203125
'
' Largest numerical value to round with maximum resolution is:
'   79228162 + (2 ^ 21 - 8) / 2 ^ 21
' or:
'   79228162.999996185302734375
'
' Expected rounded value must not exceed the range of:
'   +/- 79,228,162,514,264,337,593,543,950,335
'
' Uses CDec() to prevent bit errors of reals.
'
' Execution time is about 0.5µs for rounding to integer, else about 1µs.
'
' Examples, integers:
'   RoundDownBase2(1001, -3)                -&gt; 1000
'   RoundDownBase2(1001, -8)                -&gt;  768
'   RoundDownBase2(17.03, -4)               -&gt;   16
'   RoundDownBase2(17.03, -5)               -&gt;    0
'
' Examples, decimals:
'   1 / 2 ^ 4 = 0.0625                                  Step value when rounding by 1/16
'   RoundDownBase2(17.03, 4)                -&gt; 17
'   RoundDownBase2(17.08, 4)                -&gt; 17.0625
'   RoundDownBase2(17.1, 4)                 -&gt; 17.0625
'   RoundDownBase2(17.2, 4)                 -&gt; 17.1875
'
'   1 / 2 ^ 5 = 0.03125                                 Step value when rounding by 1/32
'   RoundDownBase2(17.125 + 0.00000, 4)     -&gt; 17.125   Exact value. No rounding.
'   RoundDownBase2(17.125 + 0.03124, 4)     -&gt; 17.125
'   RoundDownBase2(17.125 + 0.03125, 4)     -&gt; 17.125
'
' More info on the power of two and rounding:
'   https://en.wikipedia.org/wiki/Power_of_two
'
' 2018-04-02. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundDownBase2</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Exponent</td><td class="Cell">Long</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundingToZero</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundMidPublic Function RoundMid(ByVal Value As Variant, Optional ByVal NumDigitsAfterDecimal As Long, Optional ByVal MidwayRoundingToEven As Boolean) As Variant_Bookmark"></a>Function RoundMid</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundMid<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundMid(ByVal Value As Variant, Optional ByVal NumDigitsAfterDecimal As Long, Optional ByVal MidwayRoundingToEven As Boolean) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds Value by 4/5 with count of decimals as specified with parameter NumDigitsAfterDecimal.<br>'<br>' Rounds to integer if NumDigitsAfterDecimal is zero.<br>'<br>' Rounds correctly Value until max/min value limited by a Scaling of 10<br>' raised to the power of (the number of decimals).<br>'<br>' Uses CDec() to prevent bit errors of reals.<br>'<br>' Execution time is about 1µs.<br>'<br>' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds Value by 4/5 with count of decimals as specified with parameter NumDigitsAfterDecimal.
'
' Rounds to integer if NumDigitsAfterDecimal is zero.
'
' Rounds correctly Value until max/min value limited by a Scaling of 10
' raised to the power of (the number of decimals).
'
' Uses CDec() to prevent bit errors of reals.
'
' Execution time is about 1µs.
'
' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundMid</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> NumDigitsAfterDecimal</td><td class="Cell">Long</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> MidwayRoundingToEven</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundMidBase2Public Function RoundMidBase2(ByVal Value As Variant, Optional ByVal Exponent As Long) As Variant_Bookmark"></a>Function RoundMidBase2</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundMidBase2<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundMidBase2(ByVal Value As Variant, Optional ByVal Exponent As Long) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds Value by 4/5 to the power of two as specified with parameter Exponent.<br>'<br>' If Exponent is positive, the fraction of Value is rounded to an integer a fraction of 1 / 2 ^ Exponent.<br>' If Exponent is zero, Value is rounded to an integer.<br>' If Exponent is negative, Value is rounded to an integer and a multiplum of 2 ^ Exponent.<br>'<br>' Rounds correctly Value until max/min value limited by a scaling of 2 raised to the power of Exponent.<br>'<br>' Smallest fraction for rounding is:<br>'   2 ^ -21 (= 1 / 2097152)<br>' or:<br>'   0.000000476837158203125<br>'<br>' Largest numerical value to round with maximum resolution is:<br>'   79228162 + (2 ^ 21 - 8) / 2 ^ 21<br>' or:<br>'   79228162.999996185302734375<br>'<br>' Expected rounded value must not exceed the range of:<br>'   +/- 79,228,162,514,264,337,593,543,950,335<br>'<br>' Uses CDec() to prevent bit errors of reals.<br>'<br>' Execution time is about 1µs.<br>'<br>' Examples, integers:<br>'   RoundMidBase2(1001, -3)             -> 1000<br>'   RoundMidBase2(1001, -8)             -> 1024<br>'   RoundMidBase2(17.03, -4)            ->   16<br>'   RoundMidBase2(17.03, -5)            ->   32<br>'<br>' Examples, decimals:<br>'   1 / 2 ^ 4 = 0.0625                              Step value when rounding by 1/16<br>'   RoundMidBase2(17.03, 4)             -> 17.0     Rounding down<br>'   RoundMidBase2(17.08, 4)             -> 17.0625  Rounding down<br>'   RoundMidBase2(17.1, 4)              -> 17.125   Rounding up<br>'   RoundMidBase2(17.2, 4)              -> 17.1875  Rounding down<br>'<br>'   1 / 2 ^ 5 = 0.03125                             Step value when rounding by 1/32<br>'   RoundMidBase2(17.125 + 0.00000, 4)  -> 17.125   Exact value. No rounding.<br>'   RoundMidBase2(17.125 + 0.03124, 4)  -> 17.125   Rounding down<br>'   RoundMidBase2(17.125 + 0.03125, 4)  -> 17.1875  Rounding up<br>'<br>' More info on the power of two and rounding:<br>'   https://en.wikipedia.org/wiki/Power_of_two<br>'<br>' 2018-04-05. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds Value by 4/5 to the power of two as specified with parameter Exponent.
'
' If Exponent is positive, the fraction of Value is rounded to an integer a fraction of 1 / 2 ^ Exponent.
' If Exponent is zero, Value is rounded to an integer.
' If Exponent is negative, Value is rounded to an integer and a multiplum of 2 ^ Exponent.
'
' Rounds correctly Value until max/min value limited by a scaling of 2 raised to the power of Exponent.
'
' Smallest fraction for rounding is:
'   2 ^ -21 (= 1 / 2097152)
' or:
'   0.000000476837158203125
'
' Largest numerical value to round with maximum resolution is:
'   79228162 + (2 ^ 21 - 8) / 2 ^ 21
' or:
'   79228162.999996185302734375
'
' Expected rounded value must not exceed the range of:
'   +/- 79,228,162,514,264,337,593,543,950,335
'
' Uses CDec() to prevent bit errors of reals.
'
' Execution time is about 1µs.
'
' Examples, integers:
'   RoundMidBase2(1001, -3)             -&gt; 1000
'   RoundMidBase2(1001, -8)             -&gt; 1024
'   RoundMidBase2(17.03, -4)            -&gt;   16
'   RoundMidBase2(17.03, -5)            -&gt;   32
'
' Examples, decimals:
'   1 / 2 ^ 4 = 0.0625                              Step value when rounding by 1/16
'   RoundMidBase2(17.03, 4)             -&gt; 17.0     Rounding down
'   RoundMidBase2(17.08, 4)             -&gt; 17.0625  Rounding down
'   RoundMidBase2(17.1, 4)              -&gt; 17.125   Rounding up
'   RoundMidBase2(17.2, 4)              -&gt; 17.1875  Rounding down
'
'   1 / 2 ^ 5 = 0.03125                             Step value when rounding by 1/32
'   RoundMidBase2(17.125 + 0.00000, 4)  -&gt; 17.125   Exact value. No rounding.
'   RoundMidBase2(17.125 + 0.03124, 4)  -&gt; 17.125   Rounding down
'   RoundMidBase2(17.125 + 0.03125, 4)  -&gt; 17.1875  Rounding up
'
' More info on the power of two and rounding:
'   https://en.wikipedia.org/wiki/Power_of_two
'
' 2018-04-05. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundMidBase2</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Exponent</td><td class="Cell">Long</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundSignificantCurPublic Function RoundSignificantCur(ByVal Value As Currency, ByVal Digits As Integer, Optional ByVal NoDecimals As Boolean, Optional ByVal MidwayRoundingToEven As Boolean) As Variant_Bookmark"></a>Function RoundSignificantCur</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundSignificantCur<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundSignificantCur(ByVal Value As Currency, ByVal Digits As Integer, Optional ByVal NoDecimals As Boolean, Optional ByVal MidwayRoundingToEven As Boolean) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds Value to have significant figures as specified with parameter Digits.<br>'<br>' Performs no rounding if Digits is zero.<br>' Rounds to integer if NoDecimals is True.<br>'<br>' Rounds correctly Value until max/min value of currency type multiplied with 10<br>' raised to the power of (the number of digits of the index of Value) minus Digits.<br>' This equals roughly +/-922 * 10 ^ 12 for any Value of Digits.<br>'<br>' Uses CDec() to prevent bit errors of reals.<br>'<br>' For rounding of values reaching the boundaries of type Currency, use the<br>' function RoundSignificantDec.<br>'<br>' Requires:<br>'   Function Log10.<br>'<br>' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds Value to have significant figures as specified with parameter Digits.
'
' Performs no rounding if Digits is zero.
' Rounds to integer if NoDecimals is True.
'
' Rounds correctly Value until max/min value of currency type multiplied with 10
' raised to the power of (the number of digits of the index of Value) minus Digits.
' This equals roughly +/-922 * 10 ^ 12 for any Value of Digits.
'
' Uses CDec() to prevent bit errors of reals.
'
' For rounding of values reaching the boundaries of type Currency, use the
' function RoundSignificantDec.
'
' Requires:
'   Function Log10.
'
' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundSignificantCur</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Currency</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Digits</td><td class="Cell">Integer</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> NoDecimals</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> MidwayRoundingToEven</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundSignificantDblPublic Function RoundSignificantDbl(ByVal Value As Double, ByVal Digits As Integer, Optional ByVal NoDecimals As Boolean, Optional ByVal MidwayRoundingToEven As Boolean) As Double_Bookmark"></a>Function RoundSignificantDbl</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundSignificantDbl<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundSignificantDbl(ByVal Value As Double, ByVal Digits As Integer, Optional ByVal NoDecimals As Boolean, Optional ByVal MidwayRoundingToEven As Boolean) As Double</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds Value to have significant figures as specified with parameter Digits.<br>'<br>' Performs no rounding if Digits is zero.<br>' Rounds to integer if NoDecimals is True.<br>' Digits can be any value between 1 and 14.<br>'<br>' Will accept values until about max/min Value of Double type.<br>' At extreme values (beyond approx. E+/-300) with significant<br>' figures of 10 and above, rounding is not 100% perfect due to<br>' the limited precision of Double.<br>'<br>' For rounding of values within the range of type Decimal, use the<br>' function RoundSignificantDec.<br>'<br>' Requires:<br>'   Function Log10.<br>'<br>' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds Value to have significant figures as specified with parameter Digits.
'
' Performs no rounding if Digits is zero.
' Rounds to integer if NoDecimals is True.
' Digits can be any value between 1 and 14.
'
' Will accept values until about max/min Value of Double type.
' At extreme values (beyond approx. E+/-300) with significant
' figures of 10 and above, rounding is not 100% perfect due to
' the limited precision of Double.
'
' For rounding of values within the range of type Decimal, use the
' function RoundSignificantDec.
'
' Requires:
'   Function Log10.
'
' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundSignificantDbl</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Double</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Double</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Double</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Double</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Digits</td><td class="Cell">Integer</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> NoDecimals</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> MidwayRoundingToEven</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundSignificantDecPublic Function RoundSignificantDec(ByVal Value As Variant, ByVal Digits As Integer, Optional ByVal NoDecimals As Boolean, Optional ByVal MidwayRoundingToEven As Boolean) As Variant_Bookmark"></a>Function RoundSignificantDec</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundSignificantDec<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundSignificantDec(ByVal Value As Variant, ByVal Digits As Integer, Optional ByVal NoDecimals As Boolean, Optional ByVal MidwayRoundingToEven As Boolean) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds Value to have significant figures as specified with parameter Digits.<br>'<br>' Performs no rounding if Digits is zero.<br>' Rounds to integer if NoDecimals is True.<br>'<br>' Rounds correctly values until about max/min Value of Decimal type divided by 2.<br>' This equals roughly +/-4 * 10^28.<br>' Digits can be any value between 1 and 28.<br>' Also rounds correctly values less than numeric 1 with up to 28 decimals.<br>' Digits can then be any value between 1 and 27.<br>'<br>' Requires:<br>'   Function Log10.<br>'<br>' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds Value to have significant figures as specified with parameter Digits.
'
' Performs no rounding if Digits is zero.
' Rounds to integer if NoDecimals is True.
'
' Rounds correctly values until about max/min Value of Decimal type divided by 2.
' This equals roughly +/-4 * 10^28.
' Digits can be any value between 1 and 28.
' Also rounds correctly values less than numeric 1 with up to 28 decimals.
' Digits can then be any value between 1 and 27.
'
' Requires:
'   Function Log10.
'
' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundSignificantDec</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Digits</td><td class="Cell">Integer</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> NoDecimals</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> MidwayRoundingToEven</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundSumPublic Function RoundSum(ByVal Values As Variant, Optional ByRef Total As Variant, Optional ByVal NumDigitsAfterDecimal As Long) As Variant_Bookmark"></a>Function RoundSum</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundSum<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundSum(ByVal Values As Variant, Optional ByRef Total As Variant, Optional ByVal NumDigitsAfterDecimal As Long) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds a series of numbers so the sum of these matches the<br>' rounded sum of the unrounded values.<br>' Further, if a requested total is passed, the rounded values<br>' will be scaled, so the sum of these matches the rounded total.<br>' In cases where the sum of the rounded values doesn't match<br>' the rounded total, the rounded values will be adjusted where<br>' the applied error will be the relatively smallest.<br>'<br>' The series of values to round must be passed as an array.<br>' The data type can be any numeric data type, and values can have<br>' any value.<br>' Internally, the function uses Decimal to achieve the highest<br>' precision and Double when the values exceed the range of Decimal.<br>'<br>' The result is an array holding the rounded values, as well as<br>' (by reference) the rounded total.<br>'<br>' If non-numeric values are passed, an error is raised.<br>'<br>' Requires:<br>'   RoundMid<br>'<br>' 2018-03-26. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds a series of numbers so the sum of these matches the
' rounded sum of the unrounded values.
' Further, if a requested total is passed, the rounded values
' will be scaled, so the sum of these matches the rounded total.
' In cases where the sum of the rounded values doesn't match
' the rounded total, the rounded values will be adjusted where
' the applied error will be the relatively smallest.
'
' The series of values to round must be passed as an array.
' The data type can be any numeric data type, and values can have
' any value.
' Internally, the function uses Decimal to achieve the highest
' precision and Double when the values exceed the range of Decimal.
'
' The result is an array holding the rounded values, as well as
' (by reference) the rounded total.
'
' If non-numeric values are passed, an error is raised.
'
' Requires:
'   RoundMid
'
' 2018-03-26. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundSum</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Values</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Total</td><td class="Cell">Variant</td><td class="Cell">Optional ByRef</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> NumDigitsAfterDecimal</td><td class="Cell">Long</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundUpPublic Function RoundUp(ByVal Value As Variant, Optional ByVal NumDigitsAfterDecimal As Long, Optional ByVal RoundingAwayFromZero As Boolean) As Variant_Bookmark"></a>Function RoundUp</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundUp<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundUp(ByVal Value As Variant, Optional ByVal NumDigitsAfterDecimal As Long, Optional ByVal RoundingAwayFromZero As Boolean) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds Value up with count of decimals as specified with parameter NumDigitsAfterDecimal.<br>'<br>' Rounds to integer if NumDigitsAfterDecimal is zero.<br>'<br>' Optionally, rounds negative values away from zero.<br>'<br>' Uses CDec() to prevent bit errors of reals.<br>'<br>' Execution time is about 0.5µs for rounding to integer,<br>' else about 1µs.<br>'<br>' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds Value up with count of decimals as specified with parameter NumDigitsAfterDecimal.
'
' Rounds to integer if NumDigitsAfterDecimal is zero.
'
' Optionally, rounds negative values away from zero.
'
' Uses CDec() to prevent bit errors of reals.
'
' Execution time is about 0.5µs for rounding to integer,
' else about 1µs.
'
' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundUp</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> NumDigitsAfterDecimal</td><td class="Cell">Long</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundingAwayFromZero</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethods.RoundUpBase2Public Function RoundUpBase2(ByVal Value As Variant, Optional ByVal Exponent As Long, Optional ByVal RoundingAwayFromZero As Boolean) As Variant_Bookmark"></a>Function RoundUpBase2</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundUpBase2<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundUpBase2(ByVal Value As Variant, Optional ByVal Exponent As Long, Optional ByVal RoundingAwayFromZero As Boolean) As Variant</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Rounds Value up to the power of two as specified with parameter Exponent.<br>'<br>' If Exponent is positive, the fraction of Value is rounded to an integer a fraction of 1 / 2 ^ Exponent.<br>' If Exponent is zero, Value is rounded to an integer.<br>' If Exponent is negative, Value is rounded to an integer and a multiplum of 2 ^ Exponent.<br>'<br>' Optionally, rounds negative values away from zero.<br>'<br>' Rounds correctly Value until max/min value limited by a scaling of 2 raised to the power of Exponent.<br>'<br>' Smallest fraction for rounding is:<br>'   2 ^ -21 (= 1 / 2097152)<br>' or:<br>'   0.000000476837158203125<br>'<br>' Largest numerical value to round with maximum resolution is:<br>'   79228162 + (2 ^ 21 - 8) / 2 ^ 21<br>' or:<br>'   79228162.999996185302734375<br>'<br>' Expected rounded value must not exceed the range of:<br>'   +/- 79,228,162,514,264,337,593,543,950,335<br>'<br>' Uses CDec() to prevent bit errors of reals.<br>'<br>' Execution time is about 0.5µs for rounding to integer, else about 1µs.<br>'<br>' Examples, integers:<br>'   RoundUpBase2(1001, -3)              -> 1008<br>'   RoundUpBase2(1001, -8)              -> 1024<br>'   RoundUpBase2(17.03, -4)             ->   32<br>'   RoundUpBase2(17.03, -5)             ->   32<br>'<br>' Examples, decimals:<br>'   1 / 2 ^ 4 = 0.0625                              Step value when rounding by 1/16<br>'   RoundUpBase2(17.03, 4)              -> 17.0625<br>'   RoundUpBase2(17.08, 4)              -> 17.125<br>'   RoundUpBase2(17.1, 4)               -> 17.125<br>'   RoundUpBase2(17.2, 4)               -> 17.25<br>'<br>'   1 / 2 ^ 5 = 0.03125                             Step value when rounding by 1/32<br>'   RoundUpBase2(17.125 + 0.00000, 4)   -> 17.125   Exact value. No rounding.<br>'   RoundUpBase2(17.125 + 0.03124, 4)   -> 17.1875<br>'   RoundUpBase2(17.125 + 0.03125, 4)   -> 17.1875<br>'<br>' More info on the power of two and rounding:<br>'   https://en.wikipedia.org/wiki/Power_of_two<br>'<br>' 2018-04-02. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Rounds Value up to the power of two as specified with parameter Exponent.
'
' If Exponent is positive, the fraction of Value is rounded to an integer a fraction of 1 / 2 ^ Exponent.
' If Exponent is zero, Value is rounded to an integer.
' If Exponent is negative, Value is rounded to an integer and a multiplum of 2 ^ Exponent.
'
' Optionally, rounds negative values away from zero.
'
' Rounds correctly Value until max/min value limited by a scaling of 2 raised to the power of Exponent.
'
' Smallest fraction for rounding is:
'   2 ^ -21 (= 1 / 2097152)
' or:
'   0.000000476837158203125
'
' Largest numerical value to round with maximum resolution is:
'   79228162 + (2 ^ 21 - 8) / 2 ^ 21
' or:
'   79228162.999996185302734375
'
' Expected rounded value must not exceed the range of:
'   +/- 79,228,162,514,264,337,593,543,950,335
'
' Uses CDec() to prevent bit errors of reals.
'
' Execution time is about 0.5µs for rounding to integer, else about 1µs.
'
' Examples, integers:
'   RoundUpBase2(1001, -3)              -&gt; 1008
'   RoundUpBase2(1001, -8)              -&gt; 1024
'   RoundUpBase2(17.03, -4)             -&gt;   32
'   RoundUpBase2(17.03, -5)             -&gt;   32
'
' Examples, decimals:
'   1 / 2 ^ 4 = 0.0625                              Step value when rounding by 1/16
'   RoundUpBase2(17.03, 4)              -&gt; 17.0625
'   RoundUpBase2(17.08, 4)              -&gt; 17.125
'   RoundUpBase2(17.1, 4)               -&gt; 17.125
'   RoundUpBase2(17.2, 4)               -&gt; 17.25
'
'   1 / 2 ^ 5 = 0.03125                             Step value when rounding by 1/32
'   RoundUpBase2(17.125 + 0.00000, 4)   -&gt; 17.125   Exact value. No rounding.
'   RoundUpBase2(17.125 + 0.03124, 4)   -&gt; 17.1875
'   RoundUpBase2(17.125 + 0.03125, 4)   -&gt; 17.1875
'
' More info on the power of two and rounding:
'   https://en.wikipedia.org/wiki/Power_of_two
'
' 2018-04-02. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethods.RoundUpBase2</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Variant</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Value</td><td class="Cell">Variant</td><td class="Cell">ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Exponent</td><td class="Cell">Long</td><td class="Cell">Optional ByVal</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> RoundingAwayFromZero</td><td class="Cell">Boolean</td><td class="Cell">Optional ByVal</td></tr></table></div><br></div></div><br></div></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">+</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image69.png"> <span class="header3"><a name="RoundingMethodsDemo_Bookmark"></a>File RoundingMethodsDemo</span></td></tr></table></div><div class="InvisibleIndentation"><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FileName</td><td class="Cell">RoundingMethodsDemo</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullPath</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> SubType</td><td class="Cell">Module</td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Modules:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image50.png"> <a class="Bookmark" href="#VBAProject.RoundingMethodsDemo_Bookmark">RoundingMethodsDemo</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image50.png"> <span class="header4"><a name="VBAProject.RoundingMethodsDemo_Bookmark"></a>Module RoundingMethodsDemo</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Name: </span>RoundingMethodsDemo<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' RoundingMethodsDemo v1.2.3<br>' (c) 2018-03-26. Gustav Brock, Cactus Data ApS, CPH.<br>' https://github.com/GustavBrock/VBA.Round<br>'<br>' Demo functions to list rounding of example values.<br>'<br>' License: MIT (http://opensource.org/licenses/mit-license.php)<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' RoundingMethodsDemo v1.2.3
' (c) 2018-03-26. Gustav Brock, Cactus Data ApS, CPH.
' https://github.com/GustavBrock/VBA.Round
'
' Demo functions to list rounding of example values.
'
' License: MIT (http://opensource.org/licenses/mit-license.php)
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsDemo</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Namespace</td><td class="Cell">VBAProject</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Methods:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Kind</th><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> Sub</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethodsDemo.CheeseCakeSplitPublic Sub CheeseCakeSplit()_Bookmark">CheeseCakeSplit</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethodsDemo.DemoPublic Function Demo()_Bookmark">Demo</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethodsDemo.RunRoundingSumDemoPublic Function RunRoundingSumDemo()_Bookmark">RunRoundingSumDemo</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image47.png"> <span class="header4"><a name="VBAProject.RoundingMethodsDemo.CheeseCakeSplitPublic Sub CheeseCakeSplit()_Bookmark"></a>Sub CheeseCakeSplit</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Sub<br><span class="PropertyName">Name: </span>CheeseCakeSplit<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Sub CheeseCakeSplit()</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Create data for the cake split graph in the EE article.<br>'<br>' 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Create data for the cake split graph in the EE article.
'
' 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsDemo.CheeseCakeSplit</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Sub</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethodsDemo.DemoPublic Function Demo()_Bookmark"></a>Function Demo</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>Demo<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function Demo()</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Create data for the rounding table in the EE article.<br>'<br>' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Create data for the rounding table in the EE article.
'
' 2018-02-09. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsDemo.Demo</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethodsDemo.RunRoundingSumDemoPublic Function RunRoundingSumDemo()_Bookmark"></a>Function RunRoundingSumDemo</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RunRoundingSumDemo<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RunRoundingSumDemo()</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Demo to run a series of example value sets and list<br>' the output from RoundingSum.<br>'<br>' 2018-03-26. Gustav Brock, Cactus Data ApS, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Demo to run a series of example value sets and list
' the output from RoundingSum.
'
' 2018-03-26. Gustav Brock, Cactus Data ApS, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsDemo.RunRoundingSumDemo</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br></div></div><br></div></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">+</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image69.png"> <span class="header3"><a name="RoundingMethodsTest_Bookmark"></a>File RoundingMethodsTest</span></td></tr></table></div><div class="InvisibleIndentation"><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FileName</td><td class="Cell">RoundingMethodsTest</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullPath</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> SubType</td><td class="Cell">Module</td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Modules:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image50.png"> <a class="Bookmark" href="#VBAProject.RoundingMethodsTest_Bookmark">RoundingMethodsTest</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image50.png"> <span class="header4"><a name="VBAProject.RoundingMethodsTest_Bookmark"></a>Module RoundingMethodsTest</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Name: </span>RoundingMethodsTest<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' RoundingMethodsTest v1.2.1<br>' (c) 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.<br>' https://github.com/GustavBrock/VBA.Round<br>'<br>' Test function to list rounding of example values.<br>'<br>' License: MIT (http://opensource.org/licenses/mit-license.php)<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' RoundingMethodsTest v1.2.1
' (c) 2018-03-16. Gustav Brock, Cactus Data ApS, CPH.
' https://github.com/GustavBrock/VBA.Round
'
' Test function to list rounding of example values.
'
' License: MIT (http://opensource.org/licenses/mit-license.php)
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsTest</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Namespace</td><td class="Cell">VBAProject</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Methods:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Kind</th><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethodsTest.IsGoodRoundPublic Function IsGoodRound() As Boolean_Bookmark">IsGoodRound</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethodsTest.IsGoodRoundBankersPublic Function IsGoodRoundBankers() As Boolean_Bookmark">IsGoodRoundBankers</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethodsTest.IsGoodRoundDownPublic Function IsGoodRoundDown() As Boolean_Bookmark">IsGoodRoundDown</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethodsTest.IsGoodRoundDownZeroPublic Function IsGoodRoundDownZero() As Boolean_Bookmark">IsGoodRoundDownZero</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethodsTest.IsGoodRoundUpPublic Function IsGoodRoundUp() As Boolean_Bookmark">IsGoodRoundUp</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethodsTest.IsGoodRoundUpZeroPublic Function IsGoodRoundUpZero() As Boolean_Bookmark">IsGoodRoundUpZero</a></td><td class="Cell">Public</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethodsTest.NiceDblPrivate Function NiceDbl(Dbl As Double) As Double_Bookmark">NiceDbl</a></td><td class="Cell">Private</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> Function</td><td class="Cell"><a class="Bookmark" href="#VBAProject.RoundingMethodsTest.RoundingSignificantDemoPublic Function RoundingSignificantDemo()_Bookmark">RoundingSignificantDemo</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethodsTest.IsGoodRoundPublic Function IsGoodRound() As Boolean_Bookmark"></a>Function IsGoodRound</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>IsGoodRound<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function IsGoodRound() As Boolean</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Verify correct Round returns.<br>' Returns True if all tests are passed.<br>'<br>' 2015-08-24. Gustav Brock, Cactus Data, CPH.<br>'<br>' Original source:<br>' 2005-06-14, Donald Lessau, Cologne.<br>' http://www.xbeat.net/vbspeed/IsGoodRound.htm<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Verify correct Round returns.
' Returns True if all tests are passed.
'
' 2015-08-24. Gustav Brock, Cactus Data, CPH.
'
' Original source:
' 2005-06-14, Donald Lessau, Cologne.
' http://www.xbeat.net/vbspeed/IsGoodRound.htm
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsTest.IsGoodRound</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethodsTest.IsGoodRoundBankersPublic Function IsGoodRoundBankers() As Boolean_Bookmark"></a>Function IsGoodRoundBankers</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>IsGoodRoundBankers<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function IsGoodRoundBankers() As Boolean</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Verify correct Banker's Round returns.<br>' Returns True if all tests are passed.<br>'<br>' 2015-08-24. Gustav Brock, Cactus Data, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Verify correct Banker's Round returns.
' Returns True if all tests are passed.
'
' 2015-08-24. Gustav Brock, Cactus Data, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsTest.IsGoodRoundBankers</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethodsTest.IsGoodRoundDownPublic Function IsGoodRoundDown() As Boolean_Bookmark"></a>Function IsGoodRoundDown</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>IsGoodRoundDown<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function IsGoodRoundDown() As Boolean</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Verify correct Round returns.<br>' Returns True if all tests are passed.<br>'<br>' 2015-08-24. Gustav Brock, Cactus Data, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Verify correct Round returns.
' Returns True if all tests are passed.
'
' 2015-08-24. Gustav Brock, Cactus Data, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsTest.IsGoodRoundDown</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethodsTest.IsGoodRoundDownZeroPublic Function IsGoodRoundDownZero() As Boolean_Bookmark"></a>Function IsGoodRoundDownZero</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>IsGoodRoundDownZero<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function IsGoodRoundDownZero() As Boolean</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Verify correct Round returns.<br>' Returns True if all tests are passed.<br>'<br>' 2015-08-24. Gustav Brock, Cactus Data, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Verify correct Round returns.
' Returns True if all tests are passed.
'
' 2015-08-24. Gustav Brock, Cactus Data, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsTest.IsGoodRoundDownZero</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethodsTest.IsGoodRoundUpPublic Function IsGoodRoundUp() As Boolean_Bookmark"></a>Function IsGoodRoundUp</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>IsGoodRoundUp<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function IsGoodRoundUp() As Boolean</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Verify correct Round returns.<br>' Returns True if all tests are passed.<br>'<br>' 2015-08-24. Gustav Brock, Cactus Data, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Verify correct Round returns.
' Returns True if all tests are passed.
'
' 2015-08-24. Gustav Brock, Cactus Data, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsTest.IsGoodRoundUp</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethodsTest.IsGoodRoundUpZeroPublic Function IsGoodRoundUpZero() As Boolean_Bookmark"></a>Function IsGoodRoundUpZero</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>IsGoodRoundUpZero<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function IsGoodRoundUpZero() As Boolean</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Verify correct Round returns.<br>' Returns True if all tests are passed.<br>'<br>' 2015-08-24. Gustav Brock, Cactus Data, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Verify correct Round returns.
' Returns True if all tests are passed.
'
' 2015-08-24. Gustav Brock, Cactus Data, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsTest.IsGoodRoundUpZero</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Boolean</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethodsTest.NiceDblPrivate Function NiceDbl(Dbl As Double) As Double_Bookmark"></a>Function NiceDbl</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>NiceDbl<br><span class="PropertyName">Access: </span>Private<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Private Function NiceDbl(Dbl As Double) As Double</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Helper for IsGoodRound<br>' 2002-04-04.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Helper for IsGoodRound
' 2002-04-04.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsTest.NiceDbl</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeAliasedName</td><td class="Cell">Double</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeFullName</td><td class="Cell">Double</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TypeName</td><td class="Cell">Double</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Type</th><th class="TableHeaderRow">Modifiers</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image60.png"> Dbl</td><td class="Cell">Double</td><td class="Cell"></td></tr></table></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image48.png"> <span class="header4"><a name="VBAProject.RoundingMethodsTest.RoundingSignificantDemoPublic Function RoundingSignificantDemo()_Bookmark"></a>Function RoundingSignificantDemo</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Kind: </span>Function<br><span class="PropertyName">Name: </span>RoundingSignificantDemo<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br>Public Function RoundingSignificantDemo()</div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>' Produces examples of values rounded to significant figures.<br>'<br>' 2015-08-25. Gustav Brock, Cactus Data, CPH.<br>'<br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell">' Produces examples of values rounded to significant figures.
'
' 2015-08-25. Gustav Brock, Cactus Data, CPH.
'
</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.RoundingMethodsTest.RoundingSignificantDemo</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsNotOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverloaded</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverridable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsOverrides</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsStatic</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MethodKind</td><td class="Cell">Function</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Parameters:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br></div></div><br></div></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">+</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image76.png"> <span class="header3"><a name="Rounding_Bookmark"></a>File Rounding</span></td></tr></table></div><div class="InvisibleIndentation"><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FileName</td><td class="Cell">Rounding</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullPath</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> SubType</td><td class="Cell">VBA Document</td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Classes:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image49.png"> <a class="Bookmark" href="#VBAProject.Rounding_Bookmark">Rounding</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image49.png"> <span class="header4"><a name="VBAProject.Rounding_Bookmark"></a>Class Rounding</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Name: </span>Rounding<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Implemented Interfaces:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> _CodeName</td><td class="Cell">Rounding</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> _ReadOnlyRecommended</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> AcceptLabelsInFormulas</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> AccuracyVersion</td><td class="Cell">0</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Author</td><td class="Cell">Gustav Brock</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> AutoSaveOn</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> AutoUpdateFrequency</td><td class="Cell">0</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> CalculationVersion</td><td class="Cell">171027</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> CaseSensitive</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ChangeHistoryDuration</td><td class="Cell">0</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ChartDataPointTrack</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> CheckCompatibility</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> CodeName</td><td class="Cell">Rounding</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Comments</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ConflictResolution</td><td class="Cell">1</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ConnectionsDisabled</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> CreateBackup</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Creator</td><td class="Cell">1480803660</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Date1904</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DisplayDrawingObjects</td><td class="Cell">-4104</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DisplayInkComments</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DoNotPromptForConvert</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> EnableAutoRecover</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> EncryptionProvider</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> EnvelopeVisible</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Excel8CompatibilityMode</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FileFormat</td><td class="Cell">52</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Final</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ForceFullCalculation</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.Rounding</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">R:\CD_Test12\Round\Rounding.xlsm</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullNameURLEncoded</td><td class="Cell">R:\CD_Test12\Round\Rounding.xlsm</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> HasMailer</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> HasPassword</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> HasRoutingSlip</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> HasVBProject</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> HighlightChangesOnScreen</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> InactiveListBorderVisible</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAddin</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsInplace</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> KeepChangeHistory</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Keywords</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ListChangesOnNewSheet</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> MultiUserEditing</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Namespace</td><td class="Cell">VBAProject</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Password</td><td class="Cell">********</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> PasswordEncryptionAlgorithm</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> PasswordEncryptionFileProperties</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> PasswordEncryptionKeyLength</td><td class="Cell">0</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> PasswordEncryptionProvider</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Path</td><td class="Cell">R:\CD_Test12\Round</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> PersonalViewListSettings</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> PersonalViewPrintSettings</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> PrecisionAsDisplayed</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ProtectStructure</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ProtectWindows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ReadOnly</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ReadOnlyRecommended</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> RemovePersonalInformation</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> RevisionNumber</td><td class="Cell">0</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Routed</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Saved</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> SaveLinkValues</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ShowConflictHistory</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ShowPivotChartActiveFields</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ShowPivotTableFieldList</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Subject</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TemplateRemoveExtData</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Title</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> UpdateLinks</td><td class="Cell">1</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> UpdateRemoteReferences</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> UseWholeCellCriteria</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> UseWildcards</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> VBASigned</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> WorkIdentity</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> WritePassword</td><td class="Cell">********</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> WriteReserved</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> WriteReservedBy</td><td class="Cell">Gustav Brock</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br></div></div><br></div><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">+</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image75.png"> <span class="header3"><a name="Sheet1_Bookmark"></a>File Sheet1</span></td></tr></table></div><div class="InvisibleIndentation"><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FileName</td><td class="Cell">Sheet1</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullPath</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> SubType</td><td class="Cell">VBA Document</td></tr></table></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Classes:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Access</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image49.png"> <a class="Bookmark" href="#VBAProject.Sheet1_Bookmark">Sheet1</a></td><td class="Cell">Public</td></tr></table><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image49.png"> <span class="header4"><a name="VBAProject.Sheet1_Bookmark"></a>Class Sheet1</span></td></tr></table></div><div class="Indentation"><br><span class="PropertyName">Name: </span>Sheet1<br><span class="PropertyName">Access: </span>Public<br><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Declaration:</span></td></tr></table></div><div class="Indentation"><br></div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Implemented Interfaces:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Comment:</span></td></tr></table></div><div class="Indentation"><br>None
            </div><br><div><table><tr><td class="ToggleExternalCell"><table><tbody class="ToggleTBody"><tr><td class="Toggle" onclick="ToggleElementVisibility(this)">-</td></tr></tbody></table></td><td><span class="ListHeader">Properties:</span></td></tr></table></div><div class="Indentation"><table class="Table"><tr><th class="TableHeaderRow">Name</th><th class="TableHeaderRow">Value</th></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> _CodeName</td><td class="Cell">Sheet1</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> _DisplayRightToLeft</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> AutoFilterMode</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> CodeName</td><td class="Cell">Sheet1</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ConsolidationFunction</td><td class="Cell">-4157</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Creator</td><td class="Cell">1480803660</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DisplayAutomaticPageBreaks</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DisplayPageBreaks</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DisplayRightToLeft</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> DocComment</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> EnableAutoFilter</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> EnableCalculation</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> EnableFormatConditionsCalculation</td><td class="Cell">True</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> EnableOutlining</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> EnablePivotTable</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> EnableSelection</td><td class="Cell">0</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FilterMode</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> FullName</td><td class="Cell">VBAProject.Sheet1</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Index</td><td class="Cell">1</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsAbstract</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> IsShadows</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Namespace</td><td class="Cell">VBAProject</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> PrintedCommentPages</td><td class="Cell">0</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ProtectContents</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ProtectDrawingObjects</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ProtectionMode</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ProtectScenarios</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> ScrollArea</td><td class="Cell"></td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> StandardHeight</td><td class="Cell">15</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> StandardWidth</td><td class="Cell">8,43</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TransitionExpEval</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> TransitionFormEntry</td><td class="Cell">False</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Type</td><td class="Cell">100</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> Visible</td><td class="Cell">-1</td></tr><tr><td class="Cell"><img alt="" width="16" height="16" style="vertical-align:text-bottom" src="Images/Image0.png"> XmlDocComment</td><td class="Cell"></td></tr></table></div><br></div></div><br></div><br></div></div></div></body></html>